home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / concntrl.scp < prev    next >
Text File  |  1994-11-21  |  20KB  |  889 lines
  1. // OPENS THE CONTROL AREA DOOR
  2. { CNT_BTN3_USE
  3.     
  4.     
  5.     M      PUSH_BUTTON CONTINUE
  6.     W    15
  7.     
  8.     // CHECK TO SEE IF THE OPR SCENE HAS BEEN RUN; IF NOT, THE DOOR
  9.     //      IS LOCKED
  10.     I  ^Ç╗           = $Ç╗    THEN
  11.         {
  12.         @Ç║      (`Çç               "This is a restricted area")
  13.         é     
  14.         }
  15.  
  16.     I  ^å░                 OR ^Ç╗           != 1 THEN
  17.         {
  18.         @Çå    (`ÇÄ  )
  19.         é     
  20.         }
  21.     E   
  22.         @Çå    (`Çì          , 150, -2048)
  23.  
  24.     I  ^äú         = $é╗       THEN J    #Çü     
  25.     I  ^äú         = $é║       THEN J    #Çâ      
  26.  
  27.     :OPEN_DR4
  28.     @Çì      CNT_DOOR_OPEN
  29.     
  30.     :TOP
  31.     â      
  32.         // MAKE SURE THE PLAYER HASN'T PRESSED THE CLOSE BUTTON ON US
  33.     //IF _DR14_SPACE = _POSITIVE THEN RETURN
  34.     I  @Ǽ            (CURFIG,DR14) < 300 THEN J    #Çé
  35.         // OKAY, THE PLAYER IS OUT OF RANGE SO CLOSE THE DOOR
  36.  
  37.     :CLOSE_DR4
  38.     //IF @ISCURRENTCAMERA(CTR) THEN CAMERA CTR4
  39.     @Çì      CNT_DOOR_CLOSE
  40.     //SUSPENDWHILE @PROCESS CNT_DOOR_CLOSE
  41.     //CAMERA UNLOCK
  42. }
  43.  
  44. // AUTO OPENS CONTROL DOOR FROM INSIDE AND CLOSES IT FOR THE FORKLIFT
  45. {  OPENCNT_CR_BOT
  46.  
  47.     @Ç¥   OPENCNT
  48. }
  49.  
  50. // AUTO OPENS CONTROL DOOR FROM INSIDE AND CLOSES IT
  51. {  OPENCNT
  52.  
  53.     I  ^äú         = $é╗       THEN
  54.         {
  55.         // IF @ISCURRENTCAMERA(CTR) THEN CAMERA CTR4
  56.         @Çì      CNT_DOOR_OPEN
  57.         :POT
  58.         â      
  59.         I  @Ǽ            (CURFIG,DR14) < 350 THEN J    #Çå 
  60.         E    
  61.             {
  62.             // IF @ISCURRENTCAMERA(CTR) THEN CAMERA CTR4
  63.             @Çì      CNT_DOOR_CLOSE
  64.             //SUSPENDWHILE @PROCESS CNT_DOOR_CLOSE
  65.             // CAMERA UNLOCK
  66.             }
  67.         }
  68. }
  69.  
  70. // TRIGGER TO RUN WHEN LEX WALKS INTO THE HARDSUIT MACHINE
  71. {  SUITTEST
  72.         {
  73.         I  ^üå                   = 1 THEN
  74.             {
  75.             ^üå                   = 0
  76.             @Çì      HARDSUITMACHINE
  77.             }
  78.  
  79.         // IF THE PLAYER HAS NOT MOVED AT LEAST THREE METERS FROM THE
  80.         // SUITTEST TRIGGER DON'T START THE HARDSUIT PROCESS AGAIN
  81.         : TEST
  82.         â      
  83.         I  @Çá              (CURFIG SUITTEST) < 300 THEN
  84.             {
  85.             J    #Çê 
  86.             }
  87.  
  88.         // PLAYER IS NOW MORE THAN THREE METERS FROM SUITTEST TRIGGER
  89.         ^üå                   = 1
  90.         }
  91. }
  92.  
  93.  
  94.  
  95.  
  96. // THIS PROCESS OPENS AND CLOSES THE HARDSUIT MACHINE
  97. {   HARDSUITMACHINE
  98.  
  99.     // FREEZE LEX
  100.     I  (@Ç¢               PLAYER) THEN
  101.         {
  102.         A  OFF
  103.         o         
  104.         }
  105.         //@@@ TRANSLATE F
  106.     E    Q      ("Can't find Lex /FFrench here /GKann Lex nicht finden.")
  107.  
  108.     // RUN HARDSUIT MACHINE ANIMATION
  109.     @Ç¥   HARD_SUIT_CLOSE_CON 
  110.     
  111.     // CHECK FOR THE CURRENT FORM AND CHANGE IT
  112.     I  (@Ç⌐       LEX) OR (@Ç⌐       LEXMIR ) THEN
  113.         {
  114.         ù            HARD
  115.         ^ïÉ         = 100
  116.         i           LEX HARDSUIT
  117.         }
  118.     E   
  119.         {
  120.         ù            LEX
  121.         @Ç¥   LEX_WOUNDS
  122.         }
  123.  
  124.     @Ç¥   HARD_SUIT_OPEN_CON
  125.     
  126.     // UNFREEZE LEX
  127.     I  (@Ç¢               PLAYER) THEN
  128.         {
  129.         A  ON
  130.         }
  131.         //@@@ TRANSLATE F
  132.     E    Q      ("Can't find Lex /FFrench /GKann Lex nicht finden.")
  133.  
  134. }
  135.  
  136. // 7.20 CONTROL ROOM/REACTOR MONITOR
  137. { CR_REACTORMONITOR
  138.  
  139.              "rtrc"
  140.  
  141.     m          
  142.  
  143.                 "bkga" 1
  144.                   "rhdl" "REACTOR MONITOR" // @@@PLEASE TRANSLATE
  145.                     "rsub" ""
  146.                     "rsdb" ""
  147.                     "rpdb" ""
  148.                     "rpub" ""
  149.                     "xitb" $Ç¡            "EXIT/FSORTIE/GZURÜCK"
  150.  
  151.     I  (^磠         ) THEN
  152.         ê                  "rtrt" "react2"
  153.     E   
  154.         // HAS VARIABLES IN IT SO IS A LIST -JAR.
  155.         j              "rtrt" "reacto"
  156.  
  157.     :CONTROL_MONITOR_LOOP
  158.            
  159.     â      
  160.     J    #Çï                 
  161.  
  162.     :RPUB_REPEAT
  163.     :RPUB_BUTTON
  164.     @Çå   (`ü«        , 255, -1024)
  165.     k              "rtrt" $Ç│     
  166.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  167.     J    #Çï                 
  168.  
  169.     :RPDB_REPEAT
  170.     :RPDB_BUTTON
  171.     @Çå   (`ü«        , 255, -1024)
  172.     k              "rtrt" $Ç┤       
  173.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  174.     J    #Çï                 
  175.  
  176.     :RSUB_REPEAT
  177.     :RSUB_BUTTON
  178.     @Çå   (`ü«        , 255, -1024)
  179.     k              "rtrt" $Ç╖     
  180.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  181.     J    #Çï                 
  182.  
  183.     :RSDB_REPEAT
  184.     :RSDB_BUTTON
  185.     @Çå   (`ü«        , 255, -1024)
  186.     k              "rtrt" $Ç╕       
  187.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  188.     J    #Çï                 
  189.  
  190.     :XITB_BUTTON
  191.     :ESCAPE_BUTTON
  192.     @Çå   (`ü▓        )
  193.            
  194. }
  195.  
  196. // 7.22 CONTROL ROOM/MAINTENANCE MONITOR
  197. // CR_MAINTENANCEMONITOR USES GRMAINTENANCELOG WITH THIS _CURRENT_LEVEL
  198. // SEE MAINMON_USE
  199.  
  200. // 7.23 CONTROL ROOM/ALIEN TECH BIKE FILES & SCHEMATICS
  201. // 7.24 CONTROL ROOM/ALIEN TECH BIKE NOTES & EXPERIMENTS
  202. // 7.30 MACHINE SHOP/ BIKE NOTES & REPAIRS
  203. // 7.XX CONTROL ROOM/HANGAR MONITOR (XX - NOT LISTED IN SCREENPLAY)
  204. { CR_HANGERMONITOR
  205.  
  206.     P        ~ÇÇ                    // VARIABLE TO KILL BIKE FLASHING PROCESS
  207.     P        ~Çü                    // LOWER ELEVATOR TO BIKE LEVEL -BUTTON PRESSED
  208.     P        ~Çé                    // ADD LOG
  209.  
  210.     ~ÇÇ       = 0
  211.  
  212.     ~Çé  = 0
  213.     ~Çü             = 0
  214.  
  215.              "hngr"
  216.  
  217.  
  218.     :HANGER_ATTRACT
  219.     // ATTRACT SCREEN
  220.  
  221.     m          
  222.                 "arga" 1
  223.                   "hadl" $Ǽ         "HANGAR DATA FILES/FHANGER DATA FILES/GFLUGDATEN"
  224.                     "aidb" "ICARUS DATA/FICARUS DATA/GICARUSDATEN"  
  225.                     "aiab" "ICARUS ACCESS/FICARUS ACESS/GICARUS ZUTRITT"
  226.                     "adlb" "HANGAR LOGS/FHANGER LOGS/GFLUGLOGBUCH"
  227.                     "axtb" $Ç¡            "EXIT/FSORTIE/GZURÜCK"
  228.  
  229.     // SUSPEND TO ALLOW SYS TEM TO DISPLAY DATA
  230.     â      
  231.  
  232.     :HANGER_LOOP
  233.            
  234.     â      
  235.     J    #Çÿ        
  236.  
  237.  
  238.     :HANGER_LOGS
  239.  
  240.     m          
  241.  
  242.                   "hadl" "ICARUS FLIGHT LOGS/FICARUS FLIGHT LOGS/GICARUS FLUGLOGBUCH"
  243.     ê                  "hltt" "biketf" 60 80 110
  244.                     "supb" ""
  245.                     "sdnb" ""
  246.                     "pupb" ""
  247.                     "pdnb" ""
  248.                     "hxtb" $Ç¡            "EXIT/FSORTIE/GZURÜCK"
  249.  
  250.     // SUSPEND TO ALLOW SYSTEM TO DISPLAY DATA
  251.     â      
  252.  
  253.     ~Çé  = 1
  254.     // JUMP TO MAIN HANGER LOOP
  255.     J    #Çÿ        
  256.  
  257.  
  258.     :HANGER_DATA
  259.  
  260.     m          
  261.  
  262.                 "ibsa" 1
  263.     ê                  "istt" "bikesc" 60 80 110
  264.  
  265.     ~ÇÇ       = @Çì      FLASHING_BIKE
  266.     // CREATE PROCESS TO CREATE THE FLASHING IMAGE OF THE BIKE
  267.  
  268.                     "isub" ""
  269.                     "isdb" ""
  270.                     "ipub" ""
  271.                     "ipdb" ""
  272.                     "ixtb" $Ç¡            "EXIT/FSORTIE/GZURÜCK" 
  273.  
  274.     // SUSPEND TO ALLOW UPDATE
  275.     â      
  276.  
  277.     // JUMP TO MAIN LOOP
  278.     J    #Çÿ        
  279.  
  280.     :AIDB_BUTTON    // OPEN DATA TEXT FIELD
  281.     @Çå   (`ü¡        )
  282.     J    #ÇÜ        
  283.  
  284.     :AIAB_BUTTON    // LOWER BUTTON
  285.     @Çå   (`ü«        )
  286.     // EXIT MONITOR & LOWER ELEVATOR
  287.     ~Çü             = 1
  288.     J    #Ç▒          
  289.  
  290.     :ADLB_BUTTON    // HANGER LOG INFO
  291.     @Çå   (`ü»        )
  292.     J    #ÇÖ        
  293.  
  294.     :SUPB_REPEAT
  295.     :SUPB_BUTTON
  296.     @Çå   (`ü░        )
  297.     k              "hltt" $Ç╖     
  298.     J    #Çÿ        
  299.  
  300.     :SDNB_REPEAT
  301.     :SDNB_BUTTON
  302.     @Çå   (`ü░        )
  303.     k              "hltt" $Ç╕       
  304.     J    #Çÿ        
  305.  
  306.     :PUPB_REPEAT
  307.     :PUPB_BUTTON
  308.     @Çå   (`ü▒        )
  309.     k              "hltt" $Ç│     
  310.     J    #Çÿ        
  311.  
  312.     :PDNB_REPEAT
  313.     :PDNB_BUTTON
  314.     @Çå   (`ü▒        )
  315.     k              "hltt" $Ç┤       
  316.     J    #Çÿ        
  317.  
  318.     :HXTB_BUTTON
  319.     @Çå   (`ü¡        )
  320.     J    #Çù           
  321.  
  322.     :ISUB_REPEAT
  323.     :ISUB_BUTTON
  324.     @Çå   (`ü░        )
  325.     k              "istt" $Ç╖     
  326.     J    #Çÿ        
  327.  
  328.     :ISDB_REPEAT
  329.     :ISDB_BUTTON
  330.     @Çå   (`ü░        )
  331.     k              "istt" $Ç╕       
  332.     J    #Çÿ        
  333.  
  334.     :IPUB_REPEAT
  335.     :IPUB_BUTTON
  336.     @Çå   (`ü▒        )
  337.     k              "istt" $Ç│     
  338.     J    #Çÿ        
  339.  
  340.     :IPDB_REPEAT
  341.     :IPDB_BUTTON
  342.     @Çå   (`ü▒        )
  343.     k              "istt" $Ç┤       
  344.     J    #Çÿ        
  345.  
  346.     :IXTB_BUTTON
  347.     @Çå   (`ü▓        )
  348.                ~ÇÇ      
  349.     ~ÇÇ       = 0
  350.     J    #Çù           
  351.  
  352.     :AXTB_BUTTON    // EXIT
  353.     @Çå   (`ü░        )
  354.  
  355.     :ESCAPE_BUTTON
  356.     @Çå   (`ü▒        )
  357.     I  ~Çé  = 1 THEN
  358.         i           LEX BIKEMON
  359.            
  360.                ~ÇÇ      
  361.  
  362.     I  (~Çü             = 1) THEN
  363.     {
  364.         // WAIT TO ALLOW THE PLAYER TO ORIENT HIMSELF TO THE NEW CAMMERA VIEW AFTER MONITOR EXIT
  365.         A  OFF
  366.         W    20
  367.         M      WALK_BACK CONTINUE
  368.         W    20
  369.         // LOWER THE ELEVATOR
  370.         @Ç¥   LOWER_GARAGE_ELEVATOR
  371.     }
  372. }
  373.  
  374. // 7.XX CONTROL ROOM/SATTELITE MONITOR (XX - NOT LISTED IN SCREENPLAY)
  375. { CR_SATTELITE_MONITOR
  376.     // THE SATTELITE MONITOR IS BUILD INTO THE HANGER MONITOR TO SAVE ON
  377.     // ART FILE SPACE :)
  378.  
  379.              "hngr"
  380.  
  381.     m          
  382.  
  383.     // MAKE SURE PTR OUT OF THE WAY
  384.     ─            (329,219)
  385.  
  386.     //IF (_LAKE_OPEN) THEN
  387.         //MON_SETFRAME "sbka" 2
  388.     //ELSE
  389.                     "sbka" 1
  390.                   "sadl" $Ǽ         "MSS SATTELITE VIEW/FMSS VUE SATTELITE/GMSS SATELLITENKAMERA"
  391.                   "sesl" "EXCAVATION SITE/FEXCAVATION SITE/GAUSGRABUNG"
  392.                   "sd1l" "DAEDALUS/FDAEDALUS/GDAEDALUS"
  393.                   "sd2l" "BASE/FBASE/GSTÜTZPUNKT"
  394.                   "spgl" "PASSAGE/FPASSAGE/GZUTRITT"
  395.                   "srtl" "RESTRICTED/FINTERDIT/GVERBOTEN"
  396.  
  397.     :SATTELITE_LOOP
  398.            
  399.     â      
  400.     J    #Ç│           
  401.  
  402.     :ESCAPE_BUTTON
  403.     @Çå   (`ü▓        )
  404.            
  405. }
  406.  
  407.  
  408.  
  409. // 7.XX CONTROL ROOM/HANGER MONITOR (XX - NOT LISTED IN SCREENPLAY)
  410. // SEE HANGER MONITOR
  411. [ FLASHING_BIKE
  412.     // THIS PROCESS FLASHES AN IMAGE OF THE BIKE IN AN ENDLESS LOOP
  413.     // IT IS CREATED AND DESTROYED BY THE HANGER MONITOR PROCESS
  414.  
  415.     :LOOP
  416.     00:00             "issa" 1
  417.     00:25             "issa" 2
  418.     00:27             "issa" 3
  419.     01:22             "issa" 2
  420.     01:24 ò            
  421.     J    #Ç╢ 
  422.     
  423.     
  424. ]
  425.  
  426. // 7.26 CONTROL ROOM/BASE EVACUATION-AUTOMATED SYSTEMS MONITOR
  427. //_CALLING_AREA == _PARAGONMONITORAREAID
  428. // 7.27 CONTROL ROOM/MONDITE PARAGON MONITOR
  429. //_CALLING_AREA == _EVACUATIONMONITORAREAID
  430. { CR_MONITOR  _CALLING_AREA
  431.  
  432.     P        ~Çü   
  433.     ~Çü    = 0
  434.  
  435.     // GENARIC CONTROL ROOM MONITORS
  436.  
  437.              "conm"
  438.  
  439.     m          
  440.  
  441.     // IF LEX IS IN THE HARDSUIT THEN SHOW THE HARD SUIT REFLECTION
  442.     I  @Ç⌐      (HARD) THEN
  443.                     "hrda" 1
  444.  
  445.                     "csub" ""
  446.                     "csdb" ""
  447.                     "cpdb" ""
  448.                     "cpub" ""
  449.                     "cxtb" $Ç¡            "EXIT/FSORTIE/GZURÜCK"
  450.  
  451.     N      ( ~ÇÇ           )
  452.     {
  453.         U    $âç                  
  454.         {
  455.             ~Çü    = 1
  456.             ê                  "cont" "parag"
  457.             X ÇÇ 
  458.         }
  459.         U    $âê                     
  460.         {
  461.             ~Çü    = 2
  462.             ê                  "cont" "evac"
  463.             X ÇÇ 
  464.         }
  465.         U    $âë                  
  466.         {
  467.             ê                  "cont" "hist"
  468.             X ÇÇ 
  469.         }
  470.         U    $âè               
  471.         {
  472.             ê                  "cont" "arch"
  473.             X ÇÇ 
  474.         }
  475.     // ALL OTHER GENERAL INFORMATION TEXT TYPES NEED TO BE LISTED
  476.  
  477.     }
  478.  
  479.     :CONTROL_MONITOR_LOOP
  480.            
  481.     â      
  482.     J    #Ç╕                 
  483.  
  484.     :CPUB_REPEAT
  485.     :CPUB_BUTTON
  486.     @Çå   (`ü▒        )
  487.     k              "cont" $Ç│     
  488.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  489.     J    #Ç╕                 
  490.  
  491.     :CPDB_REPEAT
  492.     :CPDB_BUTTON
  493.     @Çå   (`ü▒        )
  494.     k              "cont" $Ç┤       
  495.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  496.     J    #Ç╕                 
  497.  
  498.     :CSUB_REPEAT
  499.     :CSUB_BUTTON
  500.     @Çå   (`ü░        )
  501.     k              "cont" $Ç╖     
  502.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  503.     J    #Ç╕                 
  504.  
  505.     :CSDB_REPEAT
  506.     :CSDB_BUTTON
  507.     @Çå   (`ü░        )
  508.     k              "cont" $Ç╕       
  509.     // EVENTUALLY THIS NEED A CASE ON _CALLING AREA TO DEFINE SCROLLING LIST
  510.     J    #Ç╕                 
  511.  
  512.     :CXTB_BUTTON
  513.     @Çå   (`ü▒        )
  514.     
  515.     :ESCAPE_BUTTON
  516.     @Çå   (`ü▓        )
  517.     I  ~Çü    = 1 THEN
  518.         i           LEX PARGON
  519.     I  ~Çü    = 2 THEN
  520.         i           LEX EVAC
  521.            
  522. }
  523.  
  524.  
  525. // **** REAL-TIME PROCESSES *****
  526.  
  527. [ HARD_SUIT_CLOSE_CON
  528.  
  529.     00:00 ^éï        = 1
  530.           ^éî        = 1
  531.           @Çå    `â¿      
  532.     00:04 ^éï        = 2
  533.           ^éî        = 2
  534.     00:08 ^éï        = 3
  535.           ^éî        = 3
  536.     00:12 ^éï        = 4
  537.           ^éî        = 4
  538.     00:16 ^éï        = 5
  539.           ^éî        = 5
  540.     00:20 ^éï        = 6
  541.           ^éî        = 6
  542.     00:24 ^éï        = 7
  543.           ^éî        = 7
  544.     00:28 ^éï        = 8
  545.           ^éî        = 8
  546.     01:02 ^éï        = 9
  547.           ^éî        = 9
  548.     01:06 ^éï        = 10
  549.           ^éî        = 10
  550.     01:10 ^éï        = 11
  551.           ^éî        = 11
  552.     01:14 ^éï        = 12
  553.           ^éî        = 12
  554.     01:18 ^éï        = 13
  555.           ^éî        = 13
  556.     01:22 ^éï        = 14
  557.           ^éî        = 14
  558.     01:26 ^éï        = 15
  559.           ^éî        = 15
  560.     02:00 ^éï        = 16
  561.           ^éî        = 16
  562.     02:04 ^éï        = 17
  563.           ^éî        = 17
  564.     02:08 ^éï        = 18
  565.           ^éî        = 18
  566.     02:10 ^éï        = 19
  567.           ^éî        = 19
  568.     02:12 ^éï        = 20
  569.           ^éî        = 20
  570.     02:14 ^éï        = 21
  571.           ^éî        = 21
  572.     02:16 ^éï        = 22
  573.           ^éî        = 22
  574.     02:18 ^éï        = 23
  575.           ^éî        = 23
  576.     02:20 ^éï        = 24
  577.           ^éî        = 24
  578.     02:22 ^éï        = 25
  579.           ^éî        = 25
  580.     02:24 ^éï        = 26
  581.           ^éî        = 26
  582.     02:26 ^éï        = 27
  583.           ^éî        = 27
  584.     02:28 ^éï        = 28
  585.           ^éî        = 28
  586.         
  587. ]      
  588.  
  589. [ HARD_SUIT_OPEN_CON
  590.     
  591.     00:00 ^éï        = 28
  592.           ^éî        = 28
  593.           @Çå    `â¿      
  594.     00:04 ^éï        = 27
  595.           ^éî        = 27
  596.     00:08 ^éï        = 26
  597.           ^éî        = 26
  598.     00:12 ^éï        = 25
  599.           ^éî        = 25
  600.     00:16 ^éï        = 24
  601.           ^éî        = 24
  602.     00:20 ^éï        = 23
  603.           ^éî        = 23
  604.     00:24 ^éï        = 22
  605.           ^éî        = 22
  606.     00:28 ^éï        = 21
  607.           ^éî        = 21
  608.     01:02 ^éï        = 20
  609.           ^éî        = 20
  610.     01:06 ^éï        = 19
  611.           ^éî        = 19
  612.     01:10 ^éï        = 18
  613.           ^éî        = 18
  614.     01:14 ^éï        = 17
  615.           ^éî        = 17
  616.     01:18 ^éï        = 16
  617.           ^éî        = 16
  618.     01:22 ^éï        = 15
  619.           ^éî        = 15
  620.     01:26 ^éï        = 14
  621.           ^éî        = 14
  622.     02:00 ^éï        = 13
  623.           ^éî        = 13
  624.     02:04 ^éï        = 12
  625.           ^éî        = 12
  626.     02:08 ^éï        = 11
  627.           ^éî        = 11
  628.     02:12 ^éï        = 10
  629.           ^éî        = 10
  630.     02:16 ^éï        = 9 
  631.           ^éî        = 9 
  632.     02:18 ^éï        = 8 
  633.           ^éî        = 8
  634.     02:20 ^éï        = 7 
  635.           ^éî        = 7 
  636.     02:22 ^éï        = 6
  637.           ^éî        = 6 
  638.     02:24 ^éï        = 5  
  639.           ^éî        = 5 
  640.     02:26 ^éï        = 4 
  641.           ^éî        = 4 
  642.     02:28 ^éï        = 3 
  643.           ^éî        = 3 
  644.     03:00 ^éï        = 2 
  645.           ^éî        = 2 
  646.     03:02 ^éï        = 1 
  647.           ^éî        = 1 
  648. ]
  649.  
  650. [ CNT_DOOR_OPEN
  651.  
  652.         ^å░                 = 1
  653.         @Çå    `üé      
  654.     00:00   ^Ç╢         =    1
  655.     00:02   ^Ç╢         =    2
  656.     00:04   ^Ç╢         =    3
  657.     00:06   ^Ç╢         =    4
  658.     00:09   ^Ç╢         =    5
  659.     00:11   ^Ç╢         =    6
  660.     00:13   ^Ç╢         =    7
  661.     00:15   ^Ç╢         =    8
  662.     00:17   ^Ç╢         =    9
  663.     00:19   ^Ç╢         =    10
  664.     00:21   ^Ç╢         =    11
  665.     00:22   ^Ç╢         =    12
  666.     00:24   ^Ç╢         =    13
  667.     00:26   ^Ç╢         =    14
  668.     00:28   ^Ç╢         =    15
  669.     01:00   ^Ç╢         =    16
  670.     01:02   ^Ç╢         =    0
  671.         ^å░                 = 0
  672.         ^äú         = $é║      
  673. ]
  674.  
  675. [ CNT_DOOR_CLOSE
  676.  
  677.         ^å░                 = 1
  678.         @Çå    `üé      
  679.     00:00   ^Ç╢           =  0
  680.     00:02   ^Ç╢           =  16
  681.     00:04   ^Ç╢           =  15
  682.     00:06   ^Ç╢           =  14
  683.     00:08   ^Ç╢           =  13
  684.     00:10   ^Ç╢           =  12
  685.     00:12   ^Ç╢           =  11
  686.     00:14   ^Ç╢           =  10
  687.     00:16   ^Ç╢           =  9
  688.     00:18   ^Ç╢           =  8
  689.     00:20   ^Ç╢           =  7
  690.     00:22   ^Ç╢           =  6
  691.     00:24   ^Ç╢           =  5
  692.     00:26   ^Ç╢           =  4
  693.     00:28   ^Ç╢           =  3
  694.     01:00   ^Ç╢           =  2
  695.     01:02   ^Ç╢           =  1
  696.     01:04   @Çå             `üà   
  697.         ^å░                 = 0
  698.         ^äú         = $é╗      
  699. ]
  700.  
  701.  
  702. { HANGRMON_USE
  703.     // I GUESS CAMERA ANGLE MAKES IT LOOK LIKE CAN FACE 'LEFT' MORE & BE IN COMPASS
  704.     I ( @Çä      IN (-125,135) ) THEN
  705.         é                     // NOT FACING MONITOR
  706.  
  707.     ^Ç┤              ++
  708.     //GO HANGLOC WALK 10
  709.     //FACE ??
  710.     M      LOOK_CONSOLE FREEZE
  711.     @Ç¥   CR_HANGERMONITOR
  712.     M      STAND CONTINUE
  713.     ^Ç┤              --
  714. }
  715.  
  716. { SATMON1_USE
  717.     I ( @Çä      IN (-135,135) ) THEN
  718.         é                     // NOT FACING MONITOR
  719.  
  720.     ^Ç┤              ++
  721.     //GO SALTLOC WALK 10
  722.     £    SATLOC1 GRADUAL
  723.  
  724.     M      LOOK_CONSOLE FREEZE
  725.     @Ç¥   CR_SATTELITE_MONITOR
  726.     M      STAND CONTINUE
  727.     ^Ç┤              --
  728. }
  729.  
  730. { SATMON2_USE
  731.     I ( @Çä      IN (-135,135) ) THEN
  732.         é                     // NOT FACING MONITOR
  733.  
  734.     ^Ç┤              ++
  735.     //GO SALTLOC WALK 10
  736.     £    SATLOC2 GRADUAL
  737.  
  738.     M      LOOK_CONSOLE FREEZE
  739.     @Ç¥   CR_SATTELITE_MONITOR
  740.     M      STAND CONTINUE
  741.     ^Ç┤              --
  742. }
  743.  
  744. { ARCHLMON_USE
  745.     I ( @Çä      IN (-90,180) ) THEN
  746.         é                     // NOT FACING MONITOR
  747.  
  748.     ^Ç┤              ++
  749.     //GO ARCHLOC WALK 10
  750.     £    ARCHLOC GRADUAL
  751.  
  752.     M      LOOK_CONSOLE FREEZE
  753.     @Ç¥   CR_MONITOR $âè               
  754.     M      STAND CONTINUE
  755.     ^Ç┤              --
  756. }
  757.  
  758. // EVAC MON ON EAST WALL
  759. { EVACMON1_USE
  760.     ^Ç┤              ++
  761.     I  ( @Çä      IN (-150,-30) ) THEN
  762.         {
  763.         £    EVACLOC1 GRADUAL
  764.         M      LOOK_CONSOLE FREEZE
  765.         @Ç¥   CR_MONITOR $âê                     
  766.         M      STAND CONTINUE
  767.         }
  768.     ^Ç┤              --
  769. }
  770.  
  771. { EVACMON2_USE
  772.     ^Ç┤              ++
  773.     I  ( @Çä      IN (-150,-30) ) THEN
  774.         {
  775.         £    EVACLOC2 GRADUAL
  776.         M      LOOK_CONSOLE FREEZE
  777.         @Ç¥   CR_MONITOR $âê                     
  778.         M      STAND CONTINUE
  779.         }
  780.     ^Ç┤              --
  781. }
  782.  
  783. // EVAC MON ON MIDDLE SOUTH WALL
  784. { EVCMON1_USE
  785.     ^Ç┤              ++
  786.     I  ( @Çä      IN (-60,60) ) THEN
  787.         {
  788.         £    EVCLOC1 GRADUAL
  789.         M      LOOK_CONSOLE FREEZE
  790.         @Ç¥   CR_MONITOR $âê                     
  791.         M      STAND CONTINUE
  792.         }
  793.     ^Ç┤              --
  794. }
  795.  
  796. { EVCMON2_USE
  797.     ^Ç┤              ++
  798.     I  ( @Çä      IN (-60,60) ) THEN
  799.         {
  800.         £    EVCLOC2 GRADUAL
  801.         M      LOOK_CONSOLE FREEZE
  802.         @Ç¥   CR_MONITOR $âê                     
  803.         M      STAND CONTINUE
  804.         }
  805.     ^Ç┤              --
  806. }
  807.  
  808. { HISTORYMON
  809.  
  810.     M      LOOK_CONSOLE FREEZE
  811.     @Ç¥   CR_MONITOR $âë                  
  812.     M      STAND CONTINUE
  813.     ^Ç┤              --
  814. }
  815.  
  816. { HISTMON1_USE
  817.     I ( @Çä      IN (-135,135) ) THEN
  818.         é                     // NOT FACING MONITOR
  819.  
  820.     ^Ç┤              ++
  821.     £    HISTLOC1 GRADUAL
  822.     @Çì      HISTORYMON
  823. }
  824.  
  825. { HISTMON2_USE
  826.     I ( @Çä      IN (-135,135) ) THEN
  827.         é                     // NOT FACING MONITOR
  828.  
  829.     ^Ç┤              ++
  830.     £    HISTLOC2 GRADUAL
  831.     @Çì      HISTORYMON
  832. }
  833.  
  834. { HISTMON3_USE
  835.     I ( @Çä      IN (-135,135) ) THEN
  836.         é                     // NOT FACING MONITOR
  837.  
  838.     ^Ç┤              ++
  839.     £    HISTLOC3 GRADUAL
  840.     @Çì      HISTORYMON
  841. }
  842.  
  843. { PARAGMON_USE
  844.     ^Ç┤              ++
  845.     I  ( @Çä      IN (-150,-30) ) THEN
  846.         {
  847.         //GO PARAGLOC WALK 10
  848.         £    PARAGLOC GRADUAL
  849.         M      LOOK_CONSOLE FREEZE
  850.         @Ç¥   CR_MONITOR $âç                  
  851.         M      STAND CONTINUE
  852.         }
  853.     ^Ç┤              --
  854. }
  855.  
  856. // 7.22 CONTROL ROOM/MAINTENANCE MONITOR
  857. // CR_MAINTENANCEMONITOR
  858. { MAINTMON_USE
  859.     ^Ç┤              ++
  860.     I  ( @Çä      IN (-60,60) ) THEN
  861.         {
  862.         // USED TO ASSIGN _LEVEL HERE, BUT NOW THE LEVEL_LOAD ROUTINES
  863.         // HANDLE THIS AUTOMATICALLY. -KLD
  864.         //GO MAINTLOC WALK 10
  865.         £    MAINTLOC GRADUAL
  866.         M      LOOK_AT_MON FREEZE
  867.         // CR_MAINTENANCEMONITOR USES GR_MAINTENANCELOG
  868.         @Ç¥   GR_MAINTENANCELOG
  869.         M      STAND CONTINUE
  870.         }
  871.     ^Ç┤              --
  872. }
  873.  
  874. { REACTMON_USE
  875.     ^Ç┤              ++
  876.     I  ( @Çä      IN (-60,60) ) THEN
  877.         {
  878.         //GO REACTLOC WALK 10
  879.         £    REACTLOC GRADUAL
  880.         M      LOOK_AT_MON FREEZE
  881.         @Ç¥   CR_REACTORMONITOR
  882.         M      STAND CONTINUE
  883.         }
  884.     ^Ç┤              --
  885. }
  886.  
  887.  
  888. //$ 26 - version number
  889.